home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / okuyuki.bas < prev    next >
BASIC Source File  |  1995-06-17  |  931b  |  47 lines
  1.  
  2.  /* 奥行きつきスクロール（なりかけ）
  3.  
  4. int x,y,s,x0=200/8
  5. dim d(200,50)
  6. screen 0,3,0,1
  7. sp_init():sp_clr(0)
  8. spfile_def("title.sp",1)
  9. palfile_def("title.pal",1)
  10. sp_disp(1):sp_on(0,127)
  11. bg_set(0,0,1)
  12.  
  13.  /* タイトル描き
  14. for y=0 to 5:for x=0 to 6
  15. bg_put(0,x0+x*2  ,5+y*2  ,&h104+x*4+y*28)
  16. bg_put(0,x0+x*2  ,5+y*2+1,&h105+x*4+y*28)
  17. bg_put(0,x0+x*2+1,5+y*2  ,&h106+x*4+y*28)
  18. bg_put(0,x0+x*2+1,5+y*2+1,&h107+x*4+y*28)
  19. next:next
  20.  
  21.  /* ラスタスクロールデータの作成
  22. print " 準備中"
  23. for x=0 to 200:for y=0 to 50
  24.     d(x,y)=(x-100)*y/50+100
  25. next:next:beep
  26. cls
  27.  
  28.  /* ラスタスクロールデータのセット
  29. ras_scroll_set(0,d,,,75)
  30. ras_home(100,0)
  31. x=100
  32.  
  33.  /* main loop
  34. while 1
  35. s=stick(1)
  36. if x>0   and s=4 then x=x-1
  37. if x<200 and s=6 then x=x+1
  38.  
  39.  /* ラスタスクロールデータのセット
  40.  /* x = page 番号
  41. ras_scroll_stat(1,x,x,0)
  42.  
  43.  /* 高クロック・030 ユーザは適当にウエイトを入れましょう
  44.  /*for s=0 to 500:next
  45. endwhile
  46.  
  47.